home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Scheinwerfer1.AMOS / Scheinwerfer1.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  852 b   |  27 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Scheinwerfer 1 V1.0        *  
  4. ' *      Written by Chris Hodges      *  
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. ' Dieses Programm simuliert einen Scheinwerfer mittels 
  9. ' EHB. Es sind Bilder bis 32 Farben erlaubt. 
  10. ' Die Maus sollte nicht zu schnell bewegt werden.
  11. '
  12. Screen Open 1,320,16,32,0
  13. Flash Off : Screen Hide 1
  14. Screen Open 0,320,256,64,0
  15. Curs Off : Flash Off : Paper 0 : Cls 0
  16. Cls 63 : Ink 64 : Circle 48,48,30
  17. Paint 48,48
  18. Get Block 1,0,0,96,96
  19. Load Iff "Test32.iff"
  20. Screen 1 : Get Palette 0 : Screen 0 : For A=0 To 31 : Colour A,0 : Next 
  21. Limit Mouse 
  22. Fill Logbase(5) To Logbase(5)+(Screen Width/8)*Screen Height,-1
  23. Fade 3 To 1
  24. Do 
  25.   X=X Mouse-128 : Y=Y Mouse-40
  26.   Wait Vbl : Put Block 1,X-48,Y-48,%100000
  27. Loop